home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 April: Mac OS SDK / Dev.CD Apr 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / PInterfaces / MacWindows.p < prev    next >
Encoding:
Text File  |  1998-08-17  |  48.0 KB  |  1,162 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        MacWindows.p
  3.  
  4.      Contains:    Window Manager Interfaces.
  5.  
  6.      Version:    Technology:    Mac OS 8.5
  7.                  Release:    Universal Interfaces 3.2
  8.  
  9.      Copyright:    © 1997-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT MacWindows;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __MACWINDOWS__}
  27. {$SETC __MACWINDOWS__ := 1}
  28.  
  29. {$I+}
  30. {$SETC MacWindowsIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __MACTYPES__}
  34. {$I MacTypes.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __ALIASES__}
  37. {$I Aliases.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED __APPLEEVENTS__}
  40. {$I AppleEvents.p}
  41. {$ENDC}
  42. {$IFC UNDEFINED __COLLECTIONS__}
  43. {$I Collections.p}
  44. {$ENDC}
  45. {$IFC UNDEFINED __DRAG__}
  46. {$I Drag.p}
  47. {$ENDC}
  48. {$IFC UNDEFINED __EVENTS__}
  49. {$I Events.p}
  50. {$ENDC}
  51. {$IFC UNDEFINED __MENUS__}
  52. {$I Menus.p}
  53. {$ENDC}
  54. {$IFC UNDEFINED __MIXEDMODE__}
  55. {$I MixedMode.p}
  56. {$ENDC}
  57. {$IFC UNDEFINED __QDOFFSCREEN__}
  58. {$I QDOffscreen.p}
  59. {$ENDC}
  60. {$IFC UNDEFINED __QUICKDRAW__}
  61. {$I Quickdraw.p}
  62. {$ENDC}
  63. {$IFC UNDEFINED __TEXTCOMMON__}
  64. {$I TextCommon.p}
  65. {$ENDC}
  66. {$IFC UNDEFINED __ICONS__}
  67. {$I Icons.p}
  68. {$ENDC}
  69.  
  70.  
  71.  
  72. {$PUSH}
  73. {$ALIGN MAC68K}
  74. {$LibExport+}
  75.  
  76. {——————————————————————————————————————————————————————————————————————————————————————}
  77. { • Property Types (Mac OS 8.5 and later)                                                }
  78. {——————————————————————————————————————————————————————————————————————————————————————}
  79.  
  80. TYPE
  81.     PropertyCreator                        = OSType;
  82.     PropertyTag                            = OSType;
  83. {——————————————————————————————————————————————————————————————————————————————————————}
  84. { • Window Classes (Mac OS 8.5 and later)                                                }
  85. {——————————————————————————————————————————————————————————————————————————————————————}
  86.     WindowClass                            = UInt32;
  87.  
  88. CONST
  89.     kAlertWindowClass            = 1;                            {  “I need your attention now.” }
  90.     kMovableAlertWindowClass    = 2;                            {  “I need your attention now, but I’m kind enough to let you switch out of this app to do other things.” }
  91.     kModalWindowClass            = 3;                            {  system modal, not draggable }
  92.     kMovableModalWindowClass    = 4;                            {  application modal, draggable }
  93.     kFloatingWindowClass        = 5;                            {  floats above all other application windows }
  94.     kDocumentWindowClass        = 6;                            {  everything else }
  95.  
  96.  
  97. {——————————————————————————————————————————————————————————————————————————————————————}
  98. { • Window Attributes (Mac OS 8.5 and later)                                            }
  99. {——————————————————————————————————————————————————————————————————————————————————————}
  100.  
  101.  
  102. TYPE
  103.     WindowAttributes                    = UInt32;
  104.  
  105. CONST
  106.     kWindowNoAttributes            = 0;                            {  no attributes }
  107.     kWindowCloseBoxAttribute    = $00000001;                    {  window has a close box }
  108.     kWindowHorizontalZoomAttribute = $00000002;                    {  window has horizontal zoom box }
  109.     kWindowVerticalZoomAttribute = $00000004;                    {  window has vertical zoom box }
  110.     kWindowFullZoomAttribute    = $00000006;
  111.     kWindowCollapseBoxAttribute    = $00000008;                    {  window has a collapse box }
  112.     kWindowResizableAttribute    = $00000010;                    {  window is resizable }
  113.     kWindowSideTitlebarAttribute = $00000020;                    {  window wants a titlebar on the side    (floating window class only) }
  114.     kWindowNoUpdatesAttribute    = $00010000;                    {  this window receives no update events }
  115.     kWindowNoActivatesAttribute    = $00020000;                    {  this window receives no activate events }
  116.     kWindowStandardDocumentAttributes = $0000001F;
  117.     kWindowStandardFloatingAttributes = $00000009;
  118.  
  119.  
  120. {——————————————————————————————————————————————————————————————————————————————————————}
  121. { • Errors & Gestalt (Mac OS 8.5 and later)                                            }
  122. {——————————————————————————————————————————————————————————————————————————————————————}
  123.     gestaltWindowMgrAttr        = 'wind';                        {  If this Gestalt exists, the Mac OS 8.5 Window Manager is installed }
  124.     gestaltWindowMgrPresent        = $00000001;
  125.  
  126.  
  127.     errInvalidWindowPtr            = -5600;                        {  tried to pass a bad WindowPtr argument }
  128.     errUnsupportedWindowAttributesForClass = -5601;                {  tried to create a window with WindowAttributes not supported by the WindowClass }
  129.     errWindowDoesNotHaveProxy    = -5602;                        {  tried to do something requiring a proxy to a window which doesn’t have a proxy }
  130.     errInvalidWindowProperty    = -5603;                        {  tried to access a property tag with private creator }
  131.     errWindowPropertyNotFound    = -5604;                        {  tried to get a nonexistent property }
  132.     errUnrecognizedWindowClass    = -5605;                        {  tried to create a window with a bad WindowClass }
  133.     errCorruptWindowDescription    = -5606;                        {  tried to load a corrupt window description (size or version fields incorrect) }
  134.     errUserWantsToDragWindow    = -5607;                        {  if returned from TrackWindowProxyDrag, you should call DragWindow on the window }
  135.     errWindowsAlreadyInitialized = -5608;                        {  tried to call InitFloatingWindows twice, or called InitWindows and then floating windows }
  136.     errFloatingWindowsNotInitialized = -5609;                    {  called HideFloatingWindows or ShowFloatingWindows without calling InitFloatingWindows }
  137.  
  138.  
  139.  
  140. {——————————————————————————————————————————————————————————————————————————————————————}
  141. { • Window Definition Type                                                                }
  142. {——————————————————————————————————————————————————————————————————————————————————————}
  143.     kWindowDefProcType            = 'WDEF';
  144.  
  145. {——————————————————————————————————————————————————————————————————————————————————————}
  146. { • Mac OS 7.5 Window Definition Resource IDs                                            }
  147. {——————————————————————————————————————————————————————————————————————————————————————}
  148.     kStandardWindowDefinition    = 0;                            {  for document windows and dialogs }
  149.     kRoundWindowDefinition        = 1;                            {  old da-style window }
  150.     kFloatingWindowDefinition    = 124;                            {  for floating windows }
  151.  
  152. {——————————————————————————————————————————————————————————————————————————————————————}
  153. { • Variant Codes                                                                        }
  154. {——————————————————————————————————————————————————————————————————————————————————————}
  155.                                                                 {  for use with kStandardWindowDefinition  }
  156.     kDocumentWindowVariantCode    = 0;
  157.     kModalDialogVariantCode        = 1;
  158.     kPlainDialogVariantCode        = 2;
  159.     kShadowDialogVariantCode    = 3;
  160.     kMovableModalDialogVariantCode = 5;
  161.     kAlertVariantCode            = 7;
  162.     kMovableAlertVariantCode    = 9;                            {  for use with kFloatingWindowDefinition  }
  163.     kSideFloaterVariantCode        = 8;
  164.  
  165.  
  166. {——————————————————————————————————————————————————————————————————————————————————————}
  167. { • DefProc IDs                                                                        }
  168. {——————————————————————————————————————————————————————————————————————————————————————}
  169.                                                                 {  classic ids  }
  170.     documentProc                = 0;
  171.     dBoxProc                    = 1;
  172.     plainDBox                    = 2;
  173.     altDBoxProc                    = 3;
  174.     noGrowDocProc                = 4;
  175.     movableDBoxProc                = 5;
  176.     zoomDocProc                    = 8;
  177.     zoomNoGrow                    = 12;
  178.     rDocProc                    = 16;                            {  floating window defproc ids  }
  179.     floatProc                    = 1985;
  180.     floatGrowProc                = 1987;
  181.     floatZoomProc                = 1989;
  182.     floatZoomGrowProc            = 1991;
  183.     floatSideProc                = 1993;
  184.     floatSideGrowProc            = 1995;
  185.     floatSideZoomProc            = 1997;
  186.     floatSideZoomGrowProc        = 1999;
  187.  
  188.                                                                 {  Resource IDs for theme-savvy window defprocs  }
  189.     kWindowDocumentDefProcResID    = 64;
  190.     kWindowDialogDefProcResID    = 65;
  191.     kWindowUtilityDefProcResID    = 66;
  192.     kWindowUtilitySideTitleDefProcResID = 67;
  193.  
  194.                                                                 {  Proc IDs for theme-savvy windows  }
  195.     kWindowDocumentProc            = 1024;
  196.     kWindowGrowDocumentProc        = 1025;
  197.     kWindowVertZoomDocumentProc    = 1026;
  198.     kWindowVertZoomGrowDocumentProc = 1027;
  199.     kWindowHorizZoomDocumentProc = 1028;
  200.     kWindowHorizZoomGrowDocumentProc = 1029;
  201.     kWindowFullZoomDocumentProc    = 1030;
  202.     kWindowFullZoomGrowDocumentProc = 1031;
  203.  
  204.                                                                 {  Proc IDs for theme-savvy dialogs  }
  205.     kWindowPlainDialogProc        = 1040;
  206.     kWindowShadowDialogProc        = 1041;
  207.     kWindowModalDialogProc        = 1042;
  208.     kWindowMovableModalDialogProc = 1043;
  209.     kWindowAlertProc            = 1044;
  210.     kWindowMovableAlertProc        = 1045;
  211.  
  212.                                                                 {  procIDs available in Mac OS 8.1 (Appearance 1.0.1) or later  }
  213.     kWindowMovableModalGrowProc    = 1046;
  214.  
  215.                                                                 {  Proc IDs for top title bar theme-savvy floating windows  }
  216.     kWindowFloatProc            = 1057;
  217.     kWindowFloatGrowProc        = 1059;
  218.     kWindowFloatVertZoomProc    = 1061;
  219.     kWindowFloatVertZoomGrowProc = 1063;
  220.     kWindowFloatHorizZoomProc    = 1065;
  221.     kWindowFloatHorizZoomGrowProc = 1067;
  222.     kWindowFloatFullZoomProc    = 1069;
  223.     kWindowFloatFullZoomGrowProc = 1071;
  224.  
  225.  
  226.                                                                 {  Proc IDs for side title bar theme-savvy floating windows  }
  227.     kWindowFloatSideProc        = 1073;
  228.     kWindowFloatSideGrowProc    = 1075;
  229.     kWindowFloatSideVertZoomProc = 1077;
  230.     kWindowFloatSideVertZoomGrowProc = 1079;
  231.     kWindowFloatSideHorizZoomProc = 1081;
  232.     kWindowFloatSideHorizZoomGrowProc = 1083;
  233.     kWindowFloatSideFullZoomProc = 1085;
  234.     kWindowFloatSideFullZoomGrowProc = 1087;
  235.  
  236. {——————————————————————————————————————————————————————————————————————————————————————}
  237. { • System 7 Window Positioning Constants                                                }
  238. {                                                                                        }
  239. { Passed into StandardAlert and used in ‘WIND’, ‘DLOG’, and ‘ALRT’ templates            }
  240. { StandardAlert uses zero to specify the default position. Other calls use zero to        }
  241. { specify “no position”.  Do not pass these constants to RepositionWindow.  Do not        }
  242. { store these constants in the BasicWindowDescription of a ‘wind’ resource.            }
  243. {——————————————————————————————————————————————————————————————————————————————————————}
  244.  
  245.     kWindowNoPosition            = $0000;
  246.     kWindowDefaultPosition        = $0000;                        {  used by StandardAlert }
  247.     kWindowCenterMainScreen        = $280A;
  248.     kWindowAlertPositionMainScreen = $300A;
  249.     kWindowStaggerMainScreen    = $380A;
  250.     kWindowCenterParentWindow    = $A80A;
  251.     kWindowAlertPositionParentWindow = $B00A;
  252.     kWindowStaggerParentWindow    = $B80A;
  253.     kWindowCenterParentWindowScreen = $680A;
  254.     kWindowAlertPositionParentWindowScreen = $700A;
  255.     kWindowStaggerParentWindowScreen = $780A;
  256.  
  257.  
  258. {——————————————————————————————————————————————————————————————————————————————————————}
  259. { • Window Positioning Methods    (Mac OS 8.5 and later)                                    }
  260. {                                                                                        }
  261. { Positioning methods passed to RepositionWindow.                                        }
  262. { Do not use them in WIND, ALRT, DLOG templates.                                          }
  263. { Do not confuse these constants with the constants above                                }
  264. {——————————————————————————————————————————————————————————————————————————————————————}
  265.  
  266. TYPE
  267.     WindowPositionMethod                = UInt32;
  268.  
  269. CONST
  270.     kWindowCenterOnMainScreen    = $00000001;
  271.     kWindowCenterOnParentWindow    = $00000002;
  272.     kWindowCenterOnParentWindowScreen = $00000003;
  273.     kWindowCascadeOnMainScreen    = $00000004;
  274.     kWindowCascadeOnParentWindow = $00000005;
  275.     kWIndowCascadeOnParentWindowScreen = $00000006;
  276.     kWindowAlertPositionOnMainScreen = $00000007;
  277.     kWindowAlertPositionOnParentWindow = $00000008;
  278.     kWindowAlertPositionOnParentWindowScreen = $00000009;
  279.  
  280.  
  281. {——————————————————————————————————————————————————————————————————————————————————————}
  282. { • GetWindowRegion Types                                                                }
  283. {——————————————————————————————————————————————————————————————————————————————————————}
  284.  
  285.                                                                 {  Region values to pass into GetWindowRegion  }
  286.     kWindowTitleBarRgn            = 0;
  287.     kWindowTitleTextRgn            = 1;
  288.     kWindowCloseBoxRgn            = 2;
  289.     kWindowZoomBoxRgn            = 3;
  290.     kWindowDragRgn                = 5;
  291.     kWindowGrowRgn                = 6;
  292.     kWindowCollapseBoxRgn        = 7;
  293.     kWindowTitleProxyIconRgn    = 8;                            {  Mac OS 8.5 and later }
  294.     kWindowStructureRgn            = 32;
  295.     kWindowContentRgn            = 33;
  296.  
  297.  
  298.  
  299. TYPE
  300.     WindowRegionCode                    = UInt16;
  301. {  GetWindowRegionRec - a pointer to this is passed in WDEF param for kWindowMsgGetRegion }
  302.     GetWindowRegionRecPtr = ^GetWindowRegionRec;
  303.     GetWindowRegionRec = RECORD
  304.         winRgn:                    RgnHandle;
  305.         regionCode:                WindowRegionCode;
  306.     END;
  307.  
  308.     GetWindowRegionPtr                    = ^GetWindowRegionRec;
  309. {——————————————————————————————————————————————————————————————————————————————————————}
  310. { • WDEF Message Types (Mac OS 8.5 and later)                                            }
  311. {——————————————————————————————————————————————————————————————————————————————————————}
  312. {
  313.    SetupWindowProxyDragImageRec - setup the proxy icon drag image
  314.    Both regions are allocated and disposed by the Window Manager.
  315.    The GWorld is disposed of by the Window Manager, but the WDEF must allocate
  316.    it.  See Technote on Drag Manager 1.1 additions for more information and sample code for
  317.    setting up drag images.
  318. }
  319.  
  320.     SetupWindowProxyDragImageRecPtr = ^SetupWindowProxyDragImageRec;
  321.     SetupWindowProxyDragImageRec = RECORD
  322.         imageGWorld:            GWorldPtr;                                {  locked GWorld containing the drag image - output - can be NULL }
  323.         imageRgn:                RgnHandle;                                {  image clip region, contains the portion of the image which gets blitted to screen - preallocated output - if imageGWorld is NULL, this is ignored }
  324.         outlineRgn:                RgnHandle;                                {  the outline region used on shallow monitors - preallocated output - must always be non-empty }
  325.     END;
  326.  
  327. {  MeasureWindowTitleRec - a pointer to this is passed in WDEF param for kWindowMsgGetRegion }
  328.     MeasureWindowTitleRecPtr = ^MeasureWindowTitleRec;
  329.     MeasureWindowTitleRec = RECORD
  330.                                                                         {  output parameters }
  331.         fullTitleWidth:            SInt16;                                    {  text + proxy icon width }
  332.         titleTextWidth:            SInt16;                                    {  text width }
  333.                                                                         {  input parameters }
  334.         isUnicodeTitle:            BOOLEAN;
  335.         unused:                    BOOLEAN;                                {  future use }
  336.     END;
  337.  
  338. {——————————————————————————————————————————————————————————————————————————————————————}
  339. { • Standard Window Kinds                                                                }
  340. {——————————————————————————————————————————————————————————————————————————————————————}
  341.  
  342. CONST
  343.     dialogKind                    = 2;
  344.     userKind                    = 8;
  345.     kDialogWindowKind            = 2;
  346.     kApplicationWindowKind        = 8;
  347.  
  348.  
  349. {——————————————————————————————————————————————————————————————————————————————————————}
  350. { • FindWindow Result Codes                                                            }
  351. {——————————————————————————————————————————————————————————————————————————————————————}
  352.     inDesk                        = 0;
  353.     inNoWindow                    = 0;
  354.     inMenuBar                    = 1;
  355.     inSysWindow                    = 2;
  356.     inContent                    = 3;
  357.     inDrag                        = 4;
  358.     inGrow                        = 5;
  359.     inGoAway                    = 6;
  360.     inZoomIn                    = 7;
  361.     inZoomOut                    = 8;
  362.     inCollapseBox                = 11;                            {  Mac OS 8.0 and later }
  363.     inProxyIcon                    = 12;                            {  Mac OS 8.5 and later }
  364.  
  365.  
  366. {——————————————————————————————————————————————————————————————————————————————————————}
  367. { • Window Definition Hit Test Result Codes                                            }
  368. {——————————————————————————————————————————————————————————————————————————————————————}
  369.     wNoHit                        = 0;
  370.     wInContent                    = 1;
  371.     wInDrag                        = 2;
  372.     wInGrow                        = 3;
  373.     wInGoAway                    = 4;
  374.     wInZoomIn                    = 5;
  375.     wInZoomOut                    = 6;
  376.     wInCollapseBox                = 9;                            {  Mac OS 8.0 and later }
  377.     wInProxyIcon                = 10;                            {  Mac OS 8.5 and later }
  378.  
  379.  
  380. {——————————————————————————————————————————————————————————————————————————————————————}
  381. { • Window Definition Messages                                                            }
  382. {——————————————————————————————————————————————————————————————————————————————————————}
  383.  
  384.     kWindowMsgDraw                = 0;
  385.     kWindowMsgHitTest            = 1;
  386.     kWindowMsgCalculateShape    = 2;
  387.     kWindowMsgInitialize        = 3;
  388.     kWindowMsgCleanUp            = 4;
  389.     kWindowMsgDrawGrowOutline    = 5;
  390.     kWindowMsgDrawGrowBox        = 6;
  391.  
  392. {  Messages available in Mac OS 8.0 and later }
  393.     kWindowMsgGetFeatures        = 7;
  394.     kWindowMsgGetRegion            = 8;
  395.  
  396. {  Messages available in Mac OS 8.5 and later }
  397.     kWindowMsgDragHilite        = 9;                            {  parameter boolean indicating on or off }
  398.     kWindowMsgModified            = 10;                            {  parameter boolean indicating saved (false) or modified (true) }
  399.     kWindowMsgDrawInCurrentPort    = 11;                            {  same as kWindowMsgDraw, but must draw in current port }
  400.     kWindowMsgSetupProxyDragImage = 12;                            {  parameter pointer to SetupWindowProxyDragImageRec }
  401.     kWindowMsgStateChanged        = 13;                            {  something about the window's state has changed }
  402.     kWindowMsgMeasureTitle        = 14;                            {  measure and return the ideal title width }
  403.  
  404. {  old names }
  405.     wDraw                        = 0;
  406.     wHit                        = 1;
  407.     wCalcRgns                    = 2;
  408.     wNew                        = 3;
  409.     wDispose                    = 4;
  410.     wGrow                        = 5;
  411.     wDrawGIcon                    = 6;
  412.  
  413. {——————————————————————————————————————————————————————————————————————————————————————}
  414. { • State-changed Flags for kWindowMsgStateChanged (Mac OS 8.5 and later)                }
  415. {——————————————————————————————————————————————————————————————————————————————————————}
  416.     kWindowStateTitleChanged    = $01;
  417.     kWindowStateSizeChanged        = $02;
  418.     kWindowStatePositionChanged    = $04;
  419.     kWindowStateZOrderChanged    = $08;
  420.     kWindowStateVisibilityChanged = $10;
  421.     kWindowStateHiliteChanged    = $20;
  422.     kWindowStateCollapseChanged    = $40;
  423.  
  424.  
  425. {——————————————————————————————————————————————————————————————————————————————————————}
  426. { • Window Feature Bits                                                                }
  427. {——————————————————————————————————————————————————————————————————————————————————————}
  428.     kWindowCanGrow                = $01;
  429.     kWindowCanZoom                = $02;
  430.     kWindowCanCollapse            = $04;
  431.     kWindowIsModal                = $08;
  432.     kWindowCanGetWindowRegion    = $10;
  433.     kWindowIsAlert                = $20;
  434.     kWindowHasTitleBar            = $40;
  435.  
  436. {  Message bits available in Mac OS 8.5 and later }
  437.     kWindowSupportsDragHilite    = $80;                            {  window definition supports kWindowMsgDragHilite }
  438.     kWindowSupportsModifiedBit    = $0100;                        {  window definition supports kWindowMsgModified }
  439.     kWindowCanDrawInCurrentPort    = $0200;                        {  window definition supports kWindowMsgDrawInCurrentPort }
  440.     kWindowCanSetupProxyDragImage = $0400;                        {  window definition supports kWindowMsgSetupProxyDragImage }
  441.     kWindowCanMeasureTitle        = $0800;                        {  window definition supports kWindowMsgMeasureTitle }
  442.     kWindowWantsDisposeAtProcessDeath = $1000;                    {  window definition wants a Dispose message for windows still extant during ExitToShell }
  443.  
  444.  
  445. {——————————————————————————————————————————————————————————————————————————————————————}
  446. { • Desktop Pattern Resource ID                                                        }
  447. {——————————————————————————————————————————————————————————————————————————————————————}
  448.     deskPatID                    = 16;
  449.  
  450.  
  451.  
  452. {——————————————————————————————————————————————————————————————————————————————————————}
  453. { • Window Color Part Codes                                                            }
  454. {——————————————————————————————————————————————————————————————————————————————————————}
  455.     wContentColor                = 0;
  456.     wFrameColor                    = 1;
  457.     wTextColor                    = 2;
  458.     wHiliteColor                = 3;
  459.     wTitleBarColor                = 4;
  460.  
  461.  
  462. {——————————————————————————————————————————————————————————————————————————————————————}
  463. {    • Region Dragging Constants                                                            }
  464. {——————————————————————————————————————————————————————————————————————————————————————}
  465.  
  466.     kMouseUpOutOfSlop            = $80008000;
  467.  
  468.  
  469. {——————————————————————————————————————————————————————————————————————————————————————}
  470. { • Window Color Table                                                                    }
  471. {——————————————————————————————————————————————————————————————————————————————————————}
  472.  
  473. TYPE
  474.     WinCTabPtr = ^WinCTab;
  475.     WinCTab = RECORD
  476.         wCSeed:                    LONGINT;                                {  reserved  }
  477.         wCReserved:                INTEGER;                                {  reserved  }
  478.         ctSize:                    INTEGER;                                {  usually 4 for windows  }
  479.         ctTable:                ARRAY [0..4] OF ColorSpec;
  480.     END;
  481.  
  482.     WCTabPtr                            = ^WinCTab;
  483.     WCTabHandle                            = ^WCTabPtr;
  484. {——————————————————————————————————————————————————————————————————————————————————————}
  485. { • WindowRecord                                                                        }
  486. {——————————————————————————————————————————————————————————————————————————————————————}
  487.     WindowRecordPtr = ^WindowRecord;
  488.     WindowPeek                            = ^WindowRecord;
  489.     WindowRecord = RECORD
  490.         port:                    GrafPort;
  491.         windowKind:                INTEGER;
  492.         visible:                BOOLEAN;
  493.         hilited:                BOOLEAN;
  494.         goAwayFlag:                BOOLEAN;
  495.         spareFlag:                BOOLEAN;
  496.         strucRgn:                RgnHandle;
  497.         contRgn:                RgnHandle;
  498.         updateRgn:                RgnHandle;
  499.         windowDefProc:            Handle;
  500.         dataHandle:                Handle;
  501.         titleHandle:            StringHandle;
  502.         titleWidth:                INTEGER;
  503.         controlList:            Handle;
  504.         nextWindow:                WindowPeek;
  505.         windowPic:                PicHandle;
  506.         refCon:                    LONGINT;
  507.     END;
  508.  
  509. {——————————————————————————————————————————————————————————————————————————————————————}
  510. { • Color WindowRecord                                                                    }
  511. {——————————————————————————————————————————————————————————————————————————————————————}
  512.     CWindowRecordPtr = ^CWindowRecord;
  513.     CWindowPeek                            = ^CWindowRecord;
  514.     CWindowRecord = RECORD
  515.         port:                    CGrafPort;
  516.         windowKind:                INTEGER;
  517.         visible:                BOOLEAN;
  518.         hilited:                BOOLEAN;
  519.         goAwayFlag:                BOOLEAN;
  520.         spareFlag:                BOOLEAN;
  521.         strucRgn:                RgnHandle;
  522.         contRgn:                RgnHandle;
  523.         updateRgn:                RgnHandle;
  524.         windowDefProc:            Handle;
  525.         dataHandle:                Handle;
  526.         titleHandle:            StringHandle;
  527.         titleWidth:                INTEGER;
  528.         controlList:            Handle;
  529.         nextWindow:                CWindowPeek;
  530.         windowPic:                PicHandle;
  531.         refCon:                    LONGINT;
  532.     END;
  533.  
  534. {——————————————————————————————————————————————————————————————————————————————————————}
  535. { • AuxWinHandle                                                                        }
  536. {——————————————————————————————————————————————————————————————————————————————————————}
  537.     AuxWinRecPtr = ^AuxWinRec;
  538.     AuxWinPtr                            = ^AuxWinRec;
  539.     AuxWinHandle                        = ^AuxWinPtr;
  540.     AuxWinRec = RECORD
  541.         awNext:                    AuxWinHandle;                            { handle to next AuxWinRec }
  542.         awOwner:                WindowPtr;                                { ptr to window  }
  543.         awCTable:                CTabHandle;                                { color table for this window }
  544.         reserved:                Handle;
  545.         awFlags:                LONGINT;                                { reserved for expansion }
  546.         awReserved:                CTabHandle;                                { reserved for expansion }
  547.         awRefCon:                LONGINT;                                { user Constant }
  548.     END;
  549.  
  550. {——————————————————————————————————————————————————————————————————————————————————————}
  551. {    • BasicWindowDescription    (Mac OS 8.5 and later)                                    }
  552. {                                                                                        }
  553. {    Contains statically-sized basic attributes of the window, for storage in a            }
  554. {    collection item.                                                                    }
  555. {——————————————————————————————————————————————————————————————————————————————————————}
  556. {  constants for the version field }
  557.  
  558. CONST
  559.     kWindowDefinitionVersionOne    = 1;
  560.     kWindowDefinitionVersionTwo    = 2;
  561.  
  562. {  constants for the stateflags bit field  }
  563.     kWindowIsCollapsedState        = $01;
  564.  
  565.  
  566. TYPE
  567.     BasicWindowDescriptionPtr = ^BasicWindowDescription;
  568.     BasicWindowDescription = RECORD
  569.         descriptionSize:        UInt32;                                    {  sizeof(BasicWindowDescription) }
  570.         windowContentRect:        Rect;                                    {  location on screen }
  571.         windowZoomRect:            Rect;                                    {  location on screen when zoomed out }
  572.         windowRefCon:            UInt32;                                    {  the refcon - __avoid saving stale pointers here__     }
  573.         windowStateFlags:        UInt32;                                    {  flags indicating status of transient window state }
  574.         windowPositionMethod:    WindowPositionMethod;                    {  method last used by RepositionWindow to position the window (if any) }
  575.         windowDefinitionVersion: UInt32;
  576.         CASE INTEGER OF
  577.         0: (
  578.             windowDefProc:        SInt16;                                    {  defProc and variant }
  579.             windowHasCloseBox:    BOOLEAN;
  580.            );
  581.         1: (
  582.             windowClass:        WindowClass;                            {  the class }
  583.             windowAttributes:    WindowAttributes;                        {  the attributes }
  584.            );
  585.     END;
  586.  
  587. {   the window manager stores the default collection items using these IDs }
  588.  
  589. CONST
  590.     kStoredWindowSystemTag        = 'appl';                        {  Only Apple collection items will be of this tag }
  591.     kStoredBasicWindowDescriptionID = 'sbas';                    {  BasicWindowDescription }
  592.     kStoredWindowPascalTitleID    = 's255';                        {  pascal title string }
  593.  
  594. {——————————————————————————————————————————————————————————————————————————————————————}
  595. { • Window Class Ordering                                                                }
  596. {                                                                                        }
  597. {    Special cases for the “behind” parameter in window creation calls.                    }
  598. {——————————————————————————————————————————————————————————————————————————————————————}
  599.     kFirstWindowOfClass            = -1;
  600.     kLastWindowOfClass            = 0;
  601.  
  602. {——————————————————————————————————————————————————————————————————————————————————————}
  603. { • Zoom Information Handle                                                             }
  604. {——————————————————————————————————————————————————————————————————————————————————————}
  605.  
  606. TYPE
  607.     WStateDataPtr = ^WStateData;
  608.     WStateData = RECORD
  609.         userState:                Rect;                                    { user zoom state }
  610.         stdState:                Rect;                                    { standard zoom state }
  611.     END;
  612.  
  613.     WStateDataHandle                    = ^WStateDataPtr;
  614. {——————————————————————————————————————————————————————————————————————————————————————}
  615. { • Window Creation & Persistence                                                        }
  616. {——————————————————————————————————————————————————————————————————————————————————————}
  617. FUNCTION GetNewCWindow(windowID: INTEGER; wStorage: UNIV Ptr; behind: WindowPtr): WindowPtr;
  618.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  619.     INLINE $AA46;
  620.     {$ENDC}
  621. FUNCTION NewWindow(wStorage: UNIV Ptr; {CONST}VAR boundsRect: Rect; title: Str255; visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr;
  622.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  623.     INLINE $A913;
  624.     {$ENDC}
  625. FUNCTION GetNewWindow(windowID: INTEGER; wStorage: UNIV Ptr; behind: WindowPtr): WindowPtr;
  626.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  627.     INLINE $A9BD;
  628.     {$ENDC}
  629. FUNCTION NewCWindow(wStorage: UNIV Ptr; {CONST}VAR boundsRect: Rect; title: Str255; visible: BOOLEAN; procID: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr;
  630.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  631.     INLINE $AA45;
  632.     {$ENDC}
  633. PROCEDURE DisposeWindow(window: WindowPtr);
  634.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  635.     INLINE $A914;
  636.     {$ENDC}
  637. PROCEDURE CloseWindow(window: WindowPtr);
  638.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  639.     INLINE $A92D;
  640.     {$ENDC}
  641.  
  642. {  Routines available in Mac OS 8.5 and later }
  643.  
  644. FUNCTION CreateNewWindow(windowClass: WindowClass; attributes: WindowAttributes; {CONST}VAR bounds: Rect; VAR outWindow: WindowPtr): OSStatus;
  645. {  Create a window from a ‘wind’ resource }
  646. FUNCTION CreateWindowFromResource(resID: SInt16; VAR outWindow: WindowPtr): OSStatus;
  647. {  window persistence }
  648. FUNCTION StoreWindowIntoCollection(window: WindowPtr; collection: Collection): OSStatus;
  649. FUNCTION CreateWindowFromCollection(collection: Collection; VAR outWindow: WindowPtr): OSStatus;
  650. {  window refcounting }
  651. FUNCTION GetWindowOwnerCount(window: WindowPtr; VAR outCount: UInt32): OSStatus;
  652. FUNCTION CloneWindow(window: WindowPtr): OSStatus;
  653.  
  654. {——————————————————————————————————————————————————————————————————————————————————————}
  655. { • Window Class Accessors (Mac OS 8.5 and later)                                        }
  656. {——————————————————————————————————————————————————————————————————————————————————————}
  657. FUNCTION GetWindowClass(window: WindowPtr; VAR outClass: WindowClass): OSStatus;
  658. FUNCTION GetWindowAttributes(window: WindowPtr; VAR outAttributes: WindowAttributes): OSStatus;
  659.  
  660. {——————————————————————————————————————————————————————————————————————————————————————}
  661. { • Floating Windows (Mac OS 8.5 and later)                                            }
  662. {——————————————————————————————————————————————————————————————————————————————————————}
  663. FUNCTION ShowFloatingWindows: OSStatus;
  664. FUNCTION HideFloatingWindows: OSStatus;
  665. FUNCTION AreFloatingWindowsVisible: BOOLEAN;
  666. FUNCTION FrontNonFloatingWindow: WindowPtr;
  667.  
  668.  
  669. {——————————————————————————————————————————————————————————————————————————————————————}
  670. { • Background Imaging                                                                    }
  671. {——————————————————————————————————————————————————————————————————————————————————————}
  672. PROCEDURE SetWinColor(window: WindowPtr; newColorTable: WCTabHandle);
  673.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  674.     INLINE $AA41;
  675.     {$ENDC}
  676. PROCEDURE SetDeskCPat(deskPixPat: PixPatHandle);
  677.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  678.     INLINE $AA47;
  679.     {$ENDC}
  680. {  Routines available in Mac OS 8.5 and later }
  681.  
  682. FUNCTION SetWindowContentColor(window: WindowPtr; VAR color: RGBColor): OSStatus;
  683. FUNCTION GetWindowContentColor(window: WindowPtr; VAR color: RGBColor): OSStatus;
  684. FUNCTION GetWindowContentPattern(window: WindowPtr; outPixPat: PixPatHandle): OSStatus;
  685. FUNCTION SetWindowContentPattern(window: WindowPtr; pixPat: PixPatHandle): OSStatus;
  686.  
  687.  
  688. {——————————————————————————————————————————————————————————————————————————————————————}
  689. { • Low-Level Region & Painting Routines                                                }
  690. {——————————————————————————————————————————————————————————————————————————————————————}
  691. PROCEDURE ClipAbove(window: WindowPtr);
  692.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  693.     INLINE $A90B;
  694.     {$ENDC}
  695. PROCEDURE SaveOld(window: WindowPtr);
  696.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  697.     INLINE $A90E;
  698.     {$ENDC}
  699. PROCEDURE DrawNew(window: WindowPtr; update: BOOLEAN);
  700.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  701.     INLINE $A90F;
  702.     {$ENDC}
  703. PROCEDURE PaintOne(window: WindowPtr; clobberedRgn: RgnHandle);
  704.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  705.     INLINE $A90C;
  706.     {$ENDC}
  707. PROCEDURE PaintBehind(startWindow: WindowPtr; clobberedRgn: RgnHandle);
  708.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  709.     INLINE $A90D;
  710.     {$ENDC}
  711. PROCEDURE CalcVis(window: WindowPtr);
  712.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  713.     INLINE $A909;
  714.     {$ENDC}
  715. PROCEDURE CalcVisBehind(startWindow: WindowPtr; clobberedRgn: RgnHandle);
  716.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  717.     INLINE $A90A;
  718.     {$ENDC}
  719. FUNCTION CheckUpdate(VAR theEvent: EventRecord): BOOLEAN;
  720.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  721.     INLINE $A911;
  722.     {$ENDC}
  723.  
  724. {——————————————————————————————————————————————————————————————————————————————————————}
  725. { • Window List                                                                        }
  726. {——————————————————————————————————————————————————————————————————————————————————————}
  727. FUNCTION FindWindow(thePoint: Point; VAR window: WindowPtr): INTEGER;
  728.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  729.     INLINE $A92C;
  730.     {$ENDC}
  731. FUNCTION FrontWindow: WindowPtr;
  732.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  733.     INLINE $A924;
  734.     {$ENDC}
  735. PROCEDURE BringToFront(window: WindowPtr);
  736.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  737.     INLINE $A920;
  738.     {$ENDC}
  739. PROCEDURE SendBehind(window: WindowPtr; behindWindow: WindowPtr);
  740.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  741.     INLINE $A921;
  742.     {$ENDC}
  743. PROCEDURE SelectWindow(window: WindowPtr);
  744.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  745.     INLINE $A91F;
  746.     {$ENDC}
  747.  
  748. {——————————————————————————————————————————————————————————————————————————————————————}
  749. { • Misc Low-Level stuff                                                                }
  750. {——————————————————————————————————————————————————————————————————————————————————————}
  751. PROCEDURE InitWindows;
  752.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  753.     INLINE $A912;
  754.     {$ENDC}
  755. PROCEDURE GetWMgrPort(VAR wPort: GrafPtr);
  756.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  757.     INLINE $A910;
  758.     {$ENDC}
  759. PROCEDURE GetCWMgrPort(VAR wMgrCPort: CGrafPtr);
  760.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  761.     INLINE $AA48;
  762.     {$ENDC}
  763. {  Routines available in Mac OS 8.5 and later }
  764.  
  765. FUNCTION IsValidWindowPtr(grafPort: GrafPtr): BOOLEAN;
  766. FUNCTION InitFloatingWindows: OSStatus;
  767.  
  768.  
  769. {——————————————————————————————————————————————————————————————————————————————————————}
  770. { • Various & Sundry Window Accessors                                                    }
  771. {——————————————————————————————————————————————————————————————————————————————————————}
  772. PROCEDURE HiliteWindow(window: WindowPtr; fHilite: BOOLEAN);
  773.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  774.     INLINE $A91C;
  775.     {$ENDC}
  776. PROCEDURE SetWRefCon(window: WindowPtr; data: LONGINT);
  777.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  778.     INLINE $A918;
  779.     {$ENDC}
  780. FUNCTION GetWRefCon(window: WindowPtr): LONGINT;
  781.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  782.     INLINE $A917;
  783.     {$ENDC}
  784. PROCEDURE SetWindowPic(window: WindowPtr; pic: PicHandle);
  785.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  786.     INLINE $A92E;
  787.     {$ENDC}
  788. FUNCTION GetWindowPic(window: WindowPtr): PicHandle;
  789.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  790.     INLINE $A92F;
  791.     {$ENDC}
  792. FUNCTION GetWVariant(window: WindowPtr): INTEGER;
  793.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  794.     INLINE $A80A;
  795.     {$ENDC}
  796. {  Routines available in Mac OS 8.0 (Appearance 1.0) and later }
  797. FUNCTION GetWindowFeatures(window: WindowPtr; VAR outFeatures: UInt32): OSStatus;
  798.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  799.     INLINE $303C, $0013, $AA74;
  800.     {$ENDC}
  801. FUNCTION GetWindowRegion(window: WindowPtr; inRegionCode: WindowRegionCode; ioWinRgn: RgnHandle): OSStatus;
  802.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  803.     INLINE $303C, $0014, $AA74;
  804.     {$ENDC}
  805.  
  806.  
  807. {——————————————————————————————————————————————————————————————————————————————————————}
  808. { • Update Events                                                                        }
  809. {——————————————————————————————————————————————————————————————————————————————————————}
  810.  
  811. PROCEDURE InvalRect({CONST}VAR badRect: Rect);
  812.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  813.     INLINE $A928;
  814.     {$ENDC}
  815. PROCEDURE InvalRgn(badRgn: RgnHandle);
  816.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  817.     INLINE $A927;
  818.     {$ENDC}
  819. PROCEDURE ValidRect({CONST}VAR goodRect: Rect);
  820.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  821.     INLINE $A92A;
  822.     {$ENDC}
  823. PROCEDURE ValidRgn(goodRgn: RgnHandle);
  824.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  825.     INLINE $A929;
  826.     {$ENDC}
  827. PROCEDURE BeginUpdate(window: WindowPtr);
  828.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  829.     INLINE $A922;
  830.     {$ENDC}
  831. PROCEDURE EndUpdate(window: WindowPtr);
  832.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  833.     INLINE $A923;
  834.     {$ENDC}
  835. {  Routines available in Mac OS 8.5 and later }
  836. FUNCTION InvalWindowRgn(window: WindowPtr; region: RgnHandle): OSStatus;
  837. FUNCTION InvalWindowRect(window: WindowPtr; {CONST}VAR bounds: Rect): OSStatus;
  838. FUNCTION ValidWindowRgn(window: WindowPtr; region: RgnHandle): OSStatus;
  839. FUNCTION ValidWindowRect(window: WindowPtr; {CONST}VAR bounds: Rect): OSStatus;
  840.  
  841. {——————————————————————————————————————————————————————————————————————————————————————}
  842. { • DrawGrowIcon                                                                        }
  843. {                                                                                        }
  844. {    DrawGrowIcon is deprecated in Mac OS 8.0 and later.  Theme-savvy window defprocs    }
  845. {    include the grow box in the window frame automatically.                                }
  846. {——————————————————————————————————————————————————————————————————————————————————————}
  847. PROCEDURE DrawGrowIcon(window: WindowPtr);
  848.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  849.     INLINE $A904;
  850.     {$ENDC}
  851. {——————————————————————————————————————————————————————————————————————————————————————}
  852. { • Window Titles                                                                        }
  853. {——————————————————————————————————————————————————————————————————————————————————————}
  854. PROCEDURE SetWTitle(window: WindowPtr; title: Str255);
  855.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  856.     INLINE $A91A;
  857.     {$ENDC}
  858. PROCEDURE GetWTitle(window: WindowPtr; VAR title: Str255);
  859.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  860.     INLINE $A919;
  861.     {$ENDC}
  862. {——————————————————————————————————————————————————————————————————————————————————————}
  863. { • Window Proxies (Mac OS 8.5 and later)                                                }
  864. {——————————————————————————————————————————————————————————————————————————————————————}
  865. FUNCTION SetWindowProxyFSSpec(window: WindowPtr; {CONST}VAR inFile: FSSpec): OSStatus;
  866. FUNCTION GetWindowProxyFSSpec(window: WindowPtr; VAR outFile: FSSpec): OSStatus;
  867. FUNCTION SetWindowProxyAlias(window: WindowPtr; alias: AliasHandle): OSStatus;
  868. FUNCTION GetWindowProxyAlias(window: WindowPtr; VAR alias: AliasHandle): OSStatus;
  869. FUNCTION SetWindowProxyCreatorAndType(window: WindowPtr; fileCreator: OSType; fileType: OSType; vRefNum: SInt16): OSStatus;
  870. FUNCTION GetWindowProxyIcon(window: WindowPtr; VAR outIcon: IconRef): OSStatus;
  871. FUNCTION SetWindowProxyIcon(window: WindowPtr; icon: IconRef): OSStatus;
  872. FUNCTION RemoveWindowProxy(window: WindowPtr): OSStatus;
  873. FUNCTION BeginWindowProxyDrag(window: WindowPtr; VAR outNewDrag: DragReference; outDragOutlineRgn: RgnHandle): OSStatus;
  874. FUNCTION EndWindowProxyDrag(window: WindowPtr; theDrag: DragReference): OSStatus;
  875. FUNCTION TrackWindowProxyFromExistingDrag(window: WindowPtr; startPt: Point; drag: DragReference; inDragOutlineRgn: RgnHandle): OSStatus;
  876. FUNCTION TrackWindowProxyDrag(window: WindowPtr; startPt: Point): OSStatus;
  877. FUNCTION IsWindowModified(window: WindowPtr): BOOLEAN;
  878. FUNCTION SetWindowModified(window: WindowPtr; modified: BOOLEAN): OSStatus;
  879. FUNCTION IsWindowPathSelectClick(window: WindowPtr; VAR event: EventRecord): BOOLEAN;
  880. FUNCTION WindowPathSelect(window: WindowPtr; menu: MenuHandle; VAR outMenuResult: SInt32): OSStatus;
  881.  
  882. {——————————————————————————————————————————————————————————————————————————————————————}
  883. {    • HiliteWindowFrameForDrag    (Mac OS 8.5 and later)                                    }
  884. {                                                                                        }
  885. {    If you call ShowDragHilite and HideDragHilite, you don’t need to use this routine.    }
  886. {    If you implement custom drag hiliting, you should call HiliteWindowFrameForDrag        }
  887. {    when the drag is tracking inside a window with drag-hilited content.                }
  888. {——————————————————————————————————————————————————————————————————————————————————————}
  889. FUNCTION HiliteWindowFrameForDrag(window: WindowPtr; hilited: BOOLEAN): OSStatus;
  890.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  891.     INLINE $7019, $A829;
  892.     {$ENDC}
  893.  
  894. {——————————————————————————————————————————————————————————————————————————————————————}
  895. { • Window Transitions    (Mac OS 8.5 and later)                                            }
  896. {                                                                                         }
  897. {     TransitionWindow displays a window with accompanying animation and sound.            }
  898. {——————————————————————————————————————————————————————————————————————————————————————}
  899.  
  900. TYPE
  901.     WindowTransitionEffect                = UInt32;
  902.  
  903. CONST
  904.     kWindowZoomTransitionEffect    = 1;                            {  Finder-like zoom rectangles, use with Show or Open transition actions }
  905.  
  906.  
  907. TYPE
  908.     WindowTransitionAction                = UInt32;
  909.  
  910. CONST
  911.     kWindowShowTransitionAction    = 1;                            {  param is rect in global coordinates from which to start the animation }
  912.     kWindowHideTransitionAction    = 2;                            {  param is rect in global coordinates at which to end the animation }
  913.  
  914. FUNCTION TransitionWindow(window: WindowPtr; effect: WindowTransitionEffect; action: WindowTransitionAction; rect: {Const}RectPtr): OSStatus;
  915.  
  916. {——————————————————————————————————————————————————————————————————————————————————————}
  917. { • Window Positioning                                                                    }
  918. {——————————————————————————————————————————————————————————————————————————————————————}
  919.  
  920. PROCEDURE MoveWindow(window: WindowPtr; hGlobal: INTEGER; vGlobal: INTEGER; front: BOOLEAN);
  921.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  922.     INLINE $A91B;
  923.     {$ENDC}
  924. PROCEDURE SizeWindow(window: WindowPtr; w: INTEGER; h: INTEGER; fUpdate: BOOLEAN);
  925.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  926.     INLINE $A91D;
  927.     {$ENDC}
  928. FUNCTION GrowWindow(window: WindowPtr; startPt: Point; {CONST}VAR bBox: Rect): LONGINT;
  929.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  930.     INLINE $A92B;
  931.     {$ENDC}
  932. PROCEDURE DragWindow(window: WindowPtr; startPt: Point; {CONST}VAR boundsRect: Rect);
  933.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  934.     INLINE $A925;
  935.     {$ENDC}
  936. PROCEDURE ZoomWindow(window: WindowPtr; partCode: INTEGER; front: BOOLEAN);
  937.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  938.     INLINE $A83A;
  939.     {$ENDC}
  940. {  Routines available in Mac OS 8.0 (Appearance 1.0) and later }
  941.  
  942. FUNCTION IsWindowCollapsable(window: WindowPtr): BOOLEAN;
  943.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  944.     INLINE $303C, $000F, $AA74;
  945.     {$ENDC}
  946. FUNCTION IsWindowCollapsed(window: WindowPtr): BOOLEAN;
  947.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  948.     INLINE $303C, $0010, $AA74;
  949.     {$ENDC}
  950. FUNCTION CollapseWindow(window: WindowPtr; collapse: BOOLEAN): OSStatus;
  951.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  952.     INLINE $303C, $0011, $AA74;
  953.     {$ENDC}
  954. FUNCTION CollapseAllWindows(collapse: BOOLEAN): OSStatus;
  955.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  956.     INLINE $303C, $0012, $AA74;
  957.     {$ENDC}
  958. {  Routines available in Mac OS 8.5 and later }
  959.  
  960. FUNCTION RepositionWindow(window: WindowPtr; parentWindow: WindowPtr; method: WindowPositionMethod): OSStatus;
  961. FUNCTION SetWindowBounds(window: WindowPtr; regionCode: WindowRegionCode; {CONST}VAR globalBounds: Rect): OSStatus;
  962. FUNCTION GetWindowBounds(window: WindowPtr; regionCode: WindowRegionCode; VAR globalBounds: Rect): OSStatus;
  963. FUNCTION MoveWindowStructure(window: WindowPtr; hGlobal: INTEGER; vGlobal: INTEGER): OSStatus;
  964. FUNCTION ResizeWindow(window: WindowPtr; startPoint: Point; sizeConstraints: {Const}RectPtr; VAR newContentRect: Rect): BOOLEAN;
  965. FUNCTION IsWindowInStandardState(window: WindowPtr; VAR idealSize: Point; VAR idealStandardState: Rect): BOOLEAN;
  966. FUNCTION ZoomWindowIdeal(window: WindowPtr; partCode: SInt16; VAR ioIdealSize: Point): OSStatus;
  967. FUNCTION GetWindowIdealUserState(window: WindowPtr; VAR userState: Rect): OSStatus;
  968. FUNCTION SetWindowIdealUserState(window: WindowPtr; VAR userState: Rect): OSStatus;
  969.  
  970. {——————————————————————————————————————————————————————————————————————————————————————}
  971. { • Window Visibility                                                                    }
  972. {——————————————————————————————————————————————————————————————————————————————————————}
  973.  
  974. PROCEDURE HideWindow(window: WindowPtr);
  975.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  976.     INLINE $A916;
  977.     {$ENDC}
  978. PROCEDURE ShowWindow(window: WindowPtr);
  979.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  980.     INLINE $A915;
  981.     {$ENDC}
  982. PROCEDURE ShowHide(window: WindowPtr; showFlag: BOOLEAN);
  983.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  984.     INLINE $A908;
  985.     {$ENDC}
  986.  
  987. {——————————————————————————————————————————————————————————————————————————————————————}
  988. { • Window Properties (Mac OS 8.5 and later)                                            }
  989. {——————————————————————————————————————————————————————————————————————————————————————}
  990.  
  991. FUNCTION GetWindowProperty(window: WindowPtr; propertyCreator: PropertyCreator; propertyTag: PropertyTag; bufferSize: UInt32; VAR actualSize: UInt32; propertyBuffer: UNIV Ptr): OSStatus;
  992. FUNCTION GetWindowPropertySize(window: WindowPtr; creator: PropertyCreator; tag: PropertyTag; VAR size: UInt32): OSStatus;
  993. FUNCTION SetWindowProperty(window: WindowPtr; propertyCreator: PropertyCreator; propertyTag: PropertyTag; propertySize: UInt32; propertyBuffer: UNIV Ptr): OSStatus;
  994. FUNCTION RemoveWindowProperty(window: WindowPtr; propertyCreator: PropertyCreator; propertyTag: PropertyTag): OSStatus;
  995. {——————————————————————————————————————————————————————————————————————————————————————}
  996. { • Utilities                                                                            }
  997. {——————————————————————————————————————————————————————————————————————————————————————}
  998. FUNCTION PinRect({CONST}VAR theRect: Rect; thePt: Point): LONGINT;
  999.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1000.     INLINE $A94E;
  1001.     {$ENDC}
  1002.  
  1003. FUNCTION GetGrayRgn: RgnHandle;
  1004.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1005.     INLINE $2EB8, $09EE;
  1006.     {$ENDC}
  1007.  
  1008. {——————————————————————————————————————————————————————————————————————————————————————}
  1009. { • Window Part Tracking                                                                }
  1010. {——————————————————————————————————————————————————————————————————————————————————————}
  1011. FUNCTION TrackBox(window: WindowPtr; thePt: Point; partCode: INTEGER): BOOLEAN;
  1012.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1013.     INLINE $A83B;
  1014.     {$ENDC}
  1015. FUNCTION TrackGoAway(window: WindowPtr; thePt: Point): BOOLEAN;
  1016.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1017.     INLINE $A91E;
  1018.     {$ENDC}
  1019.  
  1020. {——————————————————————————————————————————————————————————————————————————————————————}
  1021. { • Region Dragging                                                                    }
  1022. {——————————————————————————————————————————————————————————————————————————————————————}
  1023. FUNCTION DragGrayRgn(theRgn: RgnHandle; startPt: Point; {CONST}VAR limitRect: Rect; {CONST}VAR slopRect: Rect; axis: INTEGER; actionProc: DragGrayRgnUPP): LONGINT;
  1024.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1025.     INLINE $A905;
  1026.     {$ENDC}
  1027. FUNCTION DragTheRgn(theRgn: RgnHandle; startPt: Point; {CONST}VAR limitRect: Rect; {CONST}VAR slopRect: Rect; axis: INTEGER; actionProc: DragGrayRgnUPP): LONGINT;
  1028.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1029.     INLINE $A926;
  1030.     {$ENDC}
  1031.  
  1032. {——————————————————————————————————————————————————————————————————————————————————————}
  1033. {    • GetAuxWin                                                                            }
  1034. {                                                                                        }
  1035. {    Avoid using GetAuxWin if at all possible                                            }
  1036. {——————————————————————————————————————————————————————————————————————————————————————}
  1037. FUNCTION GetAuxWin(window: WindowPtr; VAR awHndl: AuxWinHandle): BOOLEAN;
  1038.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1039.     INLINE $AA42;
  1040.     {$ENDC}
  1041. {——————————————————————————————————————————————————————————————————————————————————————}
  1042. { • MixedMode & ProcPtrs                                                                }
  1043. {——————————————————————————————————————————————————————————————————————————————————————}
  1044.  
  1045. TYPE
  1046. {$IFC TYPED_FUNCTION_POINTERS}
  1047.     WindowDefProcPtr = FUNCTION(varCode: INTEGER; window: WindowPtr; message: INTEGER; param: LONGINT): LONGINT;
  1048. {$ELSEC}
  1049.     WindowDefProcPtr = ProcPtr;
  1050. {$ENDC}
  1051.  
  1052. {$IFC TYPED_FUNCTION_POINTERS}
  1053.     DeskHookProcPtr = PROCEDURE(mouseClick: BOOLEAN; VAR theEvent: EventRecord);
  1054. {$ELSEC}
  1055.     DeskHookProcPtr = Register68kProcPtr;
  1056. {$ENDC}
  1057.  
  1058.     WindowDefUPP = UniversalProcPtr;
  1059.     DeskHookUPP = UniversalProcPtr;
  1060.  
  1061. CONST
  1062.     uppWindowDefProcInfo = $00003BB0;
  1063.     uppDeskHookProcInfo = $00130802;
  1064.  
  1065. FUNCTION NewWindowDefProc(userRoutine: WindowDefProcPtr): WindowDefUPP;
  1066.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1067.     INLINE $2E9F;
  1068.     {$ENDC}
  1069.  
  1070. FUNCTION NewDeskHookProc(userRoutine: DeskHookProcPtr): DeskHookUPP;
  1071.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1072.     INLINE $2E9F;
  1073.     {$ENDC}
  1074.  
  1075. FUNCTION CallWindowDefProc(varCode: INTEGER; window: WindowPtr; message: INTEGER; param: LONGINT; userRoutine: WindowDefUPP): LONGINT;
  1076.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1077.     INLINE $205F, $4E90;
  1078.     {$ENDC}
  1079.  
  1080. PROCEDURE CallDeskHookProc(mouseClick: BOOLEAN; VAR theEvent: EventRecord; userRoutine: DeskHookUPP);
  1081.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1082.     {To be implemented:  Glue to move parameters into registers.}
  1083.     {$ENDC}
  1084. {——————————————————————————————————————————————————————————————————————————————————————}
  1085. { • C Glue                                                                                }
  1086. {——————————————————————————————————————————————————————————————————————————————————————}
  1087. {——————————————————————————————————————————————————————————————————————————————————————}
  1088. { • WindowRecord accessor macros                                                        }
  1089. {——————————————————————————————————————————————————————————————————————————————————————}
  1090. {
  1091.     *****************************************************************************
  1092.     *                                                                           *
  1093.     * The conditional STRICT_WINDOWS has been removed from this interface file. *
  1094.     * The accessor macros to a WindowRecord are no longer necessary.            *
  1095.     *                                                                           *
  1096.     * All ≈Ref Types have reverted to their original Handle and Ptr Types.      *
  1097.     *                                                                           *
  1098.     *****************************************************************************
  1099.  
  1100.     Details:
  1101.     The original purpose of the STRICT_ conditionals and accessor macros was to
  1102.     help ease the transition to Copland.  Shared data structures are difficult
  1103.     to coordinate in a preemptive multitasking OS.  By hiding the fields in a
  1104.     WindowRecord and other data structures, we would begin the migration to the
  1105.     discipline wherein system data structures are completely hidden from
  1106.     applications.
  1107.     
  1108.     After many design reviews, we finally concluded that with this sort of
  1109.     migration, the system could never tell when an application was no longer
  1110.     peeking at a WindowRecord, and thus the data structure might never become
  1111.     system owned.  Additionally, there were many other limitations in the
  1112.     classic toolbox that were begging to be addressed.  The final decision was
  1113.     to leave the traditional toolbox as a compatibility mode.
  1114.     
  1115.     We also decided to use the Handle and Ptr based types in the function
  1116.     declarations.  For example, NewWindow now returns a WindowPtr rather than a
  1117.     WindowRef.  The Ref types are still defined in the header files, so all
  1118.     existing code will still compile exactly as it did before.  There are
  1119.     several reasons why we chose to do this:
  1120.     
  1121.     - The importance of backwards compatibility makes it unfeasible for us to
  1122.     enforce real opaque references in the implementation anytime in the
  1123.     foreseeable future.  Therefore, any opaque data types (e.g. WindowRef,
  1124.     ControlRef, etc.) in the documentation and header files would always be a
  1125.     fake veneer of opacity.
  1126.     
  1127.     - There exists a significant base of books and sample code that neophyte
  1128.     Macintosh developers use to learn how to program the Macintosh.  These
  1129.     books and sample code all use direct data access.  Introducing opaque data
  1130.     types at this point would confuse neophyte programmers more than it would
  1131.     help them.
  1132.     
  1133.     - Direct data structure access is used by nearly all Macintosh developers. 
  1134.     Changing the interfaces to reflect a false opacity would not provide any
  1135.     benefit to these developers.
  1136.     
  1137.     - Accessor functions are useful in and of themselves as convenience
  1138.     functions.
  1139.     
  1140.     - Note: some accessor names conflict with API's in Win32 and have been renamed
  1141.     to have a Mac prefix (QuickTime 3.0).
  1142. }
  1143.  
  1144.  
  1145.  
  1146.  
  1147.  
  1148.  
  1149.  
  1150.  
  1151.  
  1152. {$ALIGN RESET}
  1153. {$POP}
  1154.  
  1155. {$SETC UsingIncludes := MacWindowsIncludes}
  1156.  
  1157. {$ENDC} {__MACWINDOWS__}
  1158.  
  1159. {$IFC NOT UsingIncludes}
  1160.  END.
  1161. {$ENDC}
  1162.